home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD021d.dsk / DEMO.BEAGLE BASIC.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  18 lines
  1. 100 MAX = 150:N1 = 1:N2 = 2:N3 = 31:N9 = 99:C$ =  CHR$(13):D$ =  CHR$(4)
  2. 102  PRINT D$"BLOAD PICT.ETAOIN,A$4000": PRINT D$"BLOAD PICT.SHRDLU,A$5000"
  3. 103  GOTO 110
  4. 105 Y = Y +9: XDRAW  ASC(A$) -31 AT X,Y: XDRAW 99: IF  LEN(A$) >1  THEN  FOR K = 2 TO  LEN(A$):X$ =  MID$ (A$,K,1): IF X$ < >C$  THEN  XDRAW  ASC(X$) -31: XDRAW 99: NEXT : RETURN 
  5. 108 A$ = "  " + RIGHT$(A$, LEN(A$) -K): GOTO 105
  6. 110  HOME : HGR : POKE  -16302,0
  7. 120 X = 9:Y =  -8:X = 0
  8. 130 A$ = "Beagle Basic": POKE 232,0: POKE 233,64: GOSUB 105: POKE 233,80:Y = Y +8:A$ = "Applesoft Enhancer/Command Editor<CTRL-M>by Mark Simonsen": GOSUB 105:Y = Y +3
  9. 140 A$ = "$34.95  (for Apple II, II+ or IIe)": GOSUB 105:Y = Y +4
  10. 145 A$ = "Requires Apple IIe (or II/II+ with RAM card)": GOSUB 105:Y = Y +4
  11. 150 A$ = "BEAGLE BASIC lets you rename any Applesoft<CTRL-M>command or error message for program<CTRL-M>protection, encryption or even foreign<CTRL-M>language translation.": GOSUB 105
  12. 160 Y = Y +4:A$ = "Powerful new commands are added too--<CTRL-M>ELSE, SWAP, TONE, HSCRN, MIX and PAGE,<CTRL-M>just to name a few.": GOSUB 105
  13. 180 Y = Y +4:A$ = "GOTO & GOSUB may be followed by a variable<CTRL-M>or expression. Redefine Apple's beep.<CTRL-M>Create true INVERSE REM statements too!": GOSUB 105
  14. 190 Y = Y +4:A$ = "Check out our ads in any Apple magazine.": GOSUB 105
  15. 210 A$ = " ESC to return to Menu":X = 0:Y = 174: GOSUB 105:A$ = " ESC"
  16. 215  HCOLOR= 3: HPLOT 2,191 TO 26,191 TO 26,181 TO 2,181 TO 2,191
  17. 230 K =  PEEK( -16384):CO = CO +1: IF K < >155  THEN Y = 174: GOSUB 105: FOR I = 1 TO 200: NEXT : IF CO <MAX  THEN 230
  18. 240  POKE  -16368,0: PRINT D$"RUN DEMO.MENU"